home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 36 / Amiga Format CD36 (1999-01-22)(Future Publishing)(GB)[!][issue 1999-02].iso / -seriously_amiga- / -commercial- / golded5_demo / golded5.lha / demo / Bonus / RA / Install next >
Text File  |  1998-08-24  |  3KB  |  159 lines
  1. ; $VER: 1.0 All Rights Reserved.
  2.  
  3. (delopts "oknodelete" "force" "askuser")
  4.  
  5. (onerror
  6.  
  7.     (exit (quiet))
  8. )
  9.  
  10. (set app-name "ShowURL")
  11.  
  12. (set @options
  13.  
  14.     (askoptions
  15.  
  16.         (prompt "Select components to install:")
  17.  
  18.         (help @askoptions-help)
  19.  
  20.         (default 7)
  21.  
  22.         (choices
  23.  
  24.             "Developer material"
  25.  
  26.             "Library"
  27.  
  28.             "Configuration"
  29.         )
  30.     )
  31. )
  32.  
  33. ; install library
  34.  
  35. (if (IN @options 1)
  36.  
  37.     (copylib
  38.  
  39.         (prompt "Install shared library ?")
  40.  
  41.         (source "libs/remote.library")
  42.  
  43.         (dest "libs:")
  44.  
  45.         (confirm)
  46.  
  47.         (help @copylib-help)
  48.     )
  49. )
  50.  
  51. ; install database
  52.  
  53. (if (IN @options 2)
  54.  
  55.     (
  56.         (if (getenv "remote.cfg")
  57.  
  58.             (
  59.                 (set @cfgfile (getenv "remote.cfg"))
  60.  
  61.                 ; get rid of LF
  62.  
  63.                 (set @cfgfile (substr @cfgfile 0 (- (strlen @cfgfile) 1)))
  64.             )
  65.  
  66.             (set @cfgfile "s:remote.ini")
  67.         )
  68.  
  69.         (if (exists @cfgfile)
  70.  
  71.             (set @overwrite (askbool
  72.  
  73.                 (prompt "Overwrite existing configuration ?")
  74.  
  75.                 (help (cat "\n"
  76.  
  77.                     "The configuration file is a database of applications\n"
  78.                     "installed on your computer. It comes preconfigured  \n"
  79.                     "with RA and is updated automatically on an as-needed\n"
  80.                     "basis while RA is used (RA will then scan your hard \n"
  81.                     "disks(s).                                           \n"
  82.                 ))
  83.  
  84.                 (default 0)
  85.             ))
  86.  
  87.             (set @overwrite 1)
  88.         )
  89.  
  90.         (if (= @overwrite 1)
  91.  
  92.             (copyfiles
  93.  
  94.                 (source "database/remote.ini")
  95.  
  96.                 (dest (pathonly @cfgfile))
  97.  
  98.                 (newname (fileonly @cfgfile))
  99.             )
  100.         )
  101.     )
  102. )
  103.  
  104. ; install developer material
  105.  
  106. (if (IN @options 0)
  107.  
  108.     (
  109.         (if (exists "golded:" (quiet))
  110.  
  111.             (
  112.                 (if (not (exists "golded:developer"))
  113.  
  114.                     (makedir "golded:developer")
  115.                 )
  116.  
  117.                 (set @default-dest "golded:developer")
  118.             )
  119.         )
  120.  
  121.         (set @default-dest
  122.  
  123.             (askdir
  124.  
  125.                 (prompt "Choose a directory for installing the developer material. The drawer RA is created in the path you specify:")
  126.  
  127.                 (help @askdir-help)
  128.  
  129.                 (default @default-dest)
  130.             )
  131.         )
  132.  
  133.         (copyfiles
  134.  
  135.             (source "developer")
  136.  
  137.             (dest (tackon @default-dest "ra"))
  138.  
  139.             (all)
  140.         )
  141.  
  142.         ; set environment variable
  143.  
  144.         (run (cat "echo >envarc:remote.cfg " @cfgfile))
  145.  
  146.         (run (cat "echo >env:remote.cfg " @cfgfile))
  147.  
  148.         ; delete obsolete files
  149.  
  150.         (delete (tackon @default-dest "RA/Install"))
  151.  
  152.         (delete (tackon @default-dest "RA/Install.info"))
  153.     )
  154. )
  155.  
  156. (exit)
  157.  
  158. (welcome)
  159.